﻿Public Class LandschaftstexturRaue_See
    Inherits ObjektLandschaftsTextur



    Public Sub New()
        ID = "RAUESEE"
        Landschaftsname = "Raue See"
        Deckung = 2
        Tarnung = False
        KP = -1
        Frame = True
        TexturenLaden(New String() {"Raue See+N+O+S+W"})
        Normal = -1
        Ausrichtungslandschaften = New String() {"SEE", "STRAND", "RIFF", "BRUECKE", "ZUGBRUECKE", "BAUBRUECKE", "RAUESEE", "NEBEL"}
        UebergaengeLaden("Kueste")
    End Sub

    Public Overrides Function DrawSpecialStyle(ByVal BildID As Integer, ByVal Fog As Nebelarten, ByVal Alpha As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal TerrainUntergrundID As Integer, ByVal TerrainUntergrundBildID As Integer, ByVal TerrainUntergrundID2 As Integer, ByVal TerrainUntergrundBildID2 As Integer, Optional ByVal FixedLocation As Boolean = False, Optional ByVal Top As Boolean = False) As Boolean

        Dim Frame As Integer = ObjektLandschaft.Frame
        If ObjektLandschaft.HochZaehlen < 0 Then
            Frame = ObjektLandschaft.MaxFrames - Frame
        End If

        Return DrawTerrainUndUntergrund(Alpha, Fog, BildID, X, Y, Frame, ObjektLandschaft.MaxFrames + 1, TerrainUntergrundID, TerrainUntergrundBildID, TerrainUntergrundID2, TerrainUntergrundBildID2, FixedLocation, Top)
    End Function

    Public Overrides Sub Malen3D(ByVal p_MatCube As Microsoft.DirectX.Matrix, ByVal Landschaft As ObjektLandschaft)
        Malen3D(p_MatCube, "See")
    End Sub

    Public Overrides Sub Ini3D()

    End Sub

    Public Overrides Sub Tick()

    End Sub
    Public Overrides Function GetTerrainUntergrund() As String()
        Return New String() {"SEE"}
    End Function
End Class